• c: 1 



BOl 



IDENTIFICATION 



PRODUCT CODE: fWINDEC-il-DZflW-fl-D 

PRODUCT rtOHE: HRll-DB BUcK STORAGE BOOTSTRAP LDR 

DATE CREATED: HAY 15, 1S72 

riAINTAINER: DIAGNOSTIC GROUP 

AUTHOR: JOHN AOANS 



COPYRIGHT c iqrs 

DIGITAL EQUIPMENT CORPOPATION 



£5' :nfi»3 ^ 

% 

M7 
S8 
49 
52 

5: 

52 
53 
5M 
55 
56 
57 
56 
59 
&2 
SI 
kZ 
&3 
6-4 
£)5 

B7 
bS 
&9 
7C 
71 
72 
73 
7H 
75 
7b 
77 
76 
75 

ec 

81 
92 
63 
B-4 
BS 
8& 
97 
88 

e«3 

01- 

i: 



''hZ^'A £-.732 ; 34-WV-7E 1 



3 

2.1 



2.2 



3. 



1. . 



COl 

PPlt 2 



ABSTRACT 

T« OZfiRA DIAGNOSTIC PROGRfifl IS URITTEN TO 9E USED AS AN AID 
TO KAROUARC DEBUGGING AND MAINTENANCE OF THE MRU -08 
UORO BULK STORAGE BOOTSTRAP LOADER). THESE PP0GRAI1S NAY 
ALSO BE USED AS A DATA RELIABILITY TEST. 

THE AVAILABLE TESTS ARE 
PRGO - LOGIC TESTS 
PRGl - RON DATA DUMP 

PRG2 - SINGLE ROM ADDRESS READ DATA LOOP 
REQUIREMENTS 
EQUIPMENT 

A. POP 11 FAMILY CENTRAL PROCESSOR 

B. MRll-OB (6H UORD BULK STORAGE BOOTSTRAP LOADER) 
STORAGE 

THIS PROGRAM USES CORE 0-H100(6) 

LOADING AND STARTING PROCEDURE 

LOAD PROGRAN INTO MEMORY USING ABS LOADER. 
' OAD ADDRESS ~ H Kf?^ 

SET SR = DESIRED STANDARD PDP-11 DIAGNOSTIC OPTIONS (SEE 
SECT b.O) 

NOTE: PLL SUITCHES AUTONATICAUY SELECTS AND STARTS PROGRAM 
0. 

DEPRESS START THE PROGRAM UILL TYPE OUT INSTRUCTIONS. ALL 
USER RESPONSES ARE VIA THE KEYBOARD (CARRIAGE RETURN 
TERMINATES T« RESPONSE) 

TO RESTART THE SELECTED PROGRAM LOAD ADDRESS s 000210 AND 

DEPRESS START 

SWITCH SETTINGS 

SU15 1 OR UP HALT ON ERROR 

sum 1 OR UP SCOPE LOOP 

SUi3 i OR UP INHIBIT PRINTOUT 

SU12 1 OR UP INHIBIT TRACE TRAPPING (NOT USED) 

sun 1 OR UP INHIBIT ITERATION 
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DOl 



If PWEl 

95 5. PRCGRfln OESCRIPTIOhS 
96 

97 5.1 PRCO - LOGIC TESTS 

.?9 ^oSlh^^^ ^^^^^ CONSIST OF 4 ROUTINES TO TEST THE Wll-OB 

lOl 5.1.1 ROUTINE DESCRIPTIONS 

:03 

104 ROUTINE TESTS 

105 

1% Tl AOORESSABILITY OF NRll-DB 

107 T2 OflTfl RELIRBILITY 

108 T3 THfiT NRll-GB TIMES OUT UHEN REFERENCED BY A 
iC9 DAT IP BUS CYCLE 

110 T4 THAT DATfi REfiO IS CORRECT 

ill 

112 5.1.C ERROR PRINTOUT 
113 

114 IF fi ROUTINE FAILS AND THE INHIBIT PRINTOUT SWITCH IS NOT 

115 ENABLED (SR13) A PRINTOUT RESULTS. THE PC AT THE TINE OF 
lib FAILURE IS TYPED. 

117 

118 IF AN ERROR OCCURS IN T4 THE RON DATA AND CORRECT DATA AND 

119 THE ADDRESS OF EACH IS TYPED OUT (THE ERROR TYPEOUT CANNOT 
1|0 BE DISABLED). T« FORMAT IS 

122 ROM ADDRESS/ROM DATA 

123 IMAGE ADDRESSftCORRECT DATA 
124 

Ip 5.2 PRGl - ROM DATA DUMP 

Ig THIS PROGRAM TYPES OUT THE 64 WORDS OF ROM DATA AND HALTS. 

129 5.3 PRG2 - SINaE ROM ADDRESS READ DATA LOOP 
130 

131 THIS PROGRAM CONTINUOUSLY READS DATA FROM A TYPED IN ROM 

132 ADDRESS. TO CHANGE THE ADDRESS TYPE IN A NEW ADDRESS. (MUST 

133 BE EVEN) 

135 .TITLE TEST D2MRA-A 

.NLIST S£Q,MC 
.LIST HE 
ABS 

;MR11-DB'(64 WORD BULK STORAGE BOOTSTRAP LOADER) DIAGNOSTIC 
;LOAO AOORESSs0200 
; DEPRESS START 
RESTART AODRESS=0210 
; STACK POINTER IS AT 500 

000030 .:30 
300030 00232& ERROR 
200032 D00340 340 



TEST LZfflfl-i^ 



Hat 



0C:03M 1302236 
OOOOOC 

{[ 

ITTSfcC 
1775S2 

{f^ 

17777| 

177570 

000500 

OOOObO 

000062 

000200 
C00200 000167 000622 

000210 
300210 000167 000652 

OOlOCO 



S'wOPEC 
0 

■Si^'t STATEfCNTS 
HLTsEMT 
SCOPEsTRflP 
TKCSRsl7756C 
TK08R=1775fc2 
TPCa=l7756H 
TP06RS177566 
PSU=177776 
5Rsl77570 
STKPTRsSOO 

TKlNT»s60 

TKlNTPr62 

.:200 

STfiRTi: JflP PRHTRS 
.=210 

START3: JHP RESTART 
.=1000 



imtihl stack 



TEST C:?1Rh-.5 
Dri«?»W.Cf19 



FOl 
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UUiUUO 
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UUUUUw 
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UUwUUU 




on t P ! p 












nni OP? 






nr. 'opa 


00173? 




r,n 1 ope 




ono^nn 

UUU^uu 


on 1 OTP 




nnonpo 


001036) 


005737 


177570 


001QM2 


001411 




nnt noM 


nrM%7 






UUCwUD 




not ncp 




nn 1 P7n 

UUIL/ w 


0010% 


000000 




UUiUOU 






OOlObH 


002S32 




WW A www 


012767 

W A k ■ W* 


1731C0 


00107M 


01o700 


ITTTSfc 


001100 


00&300 




001102 


000170 


001020 


OOllOS 


012706 


000500 


001112 


012767 


0010&6 



001120 
00U24 
001130 
00113b 
001140 

301 ma 

001146 
001150 
001152 
001154 
OOll&O 
001164 
001166 
001170 
001172 
001174 
001176 
001200 



016700 
016701 
012767 
011003 
005720 
064067 
021010 
132020 
000005 
164067 
062700 
005301 
001363 
000403 
022626 
1040C0 
000757 
104400 



177722 



177672 
177650 
001172 



177636 



177624 
000002 



176646 



UOROS: 

ItlAGE: 

DUflP: 

LAST: 

CHAR: 

TERM: 

ROMADD: 
PRGTAB: 



PRflTRS: 



PRGNbfl: 



.=1000 

64. 

4000 

0 

0 

0 

0 

0 

0 

PRSO 

PRGl 

PRG2 

MOV 

CLR 

TST 

BEQ 

JSR 

n6 

JSR 
0 

JSR 
N8 



RESTART: nOV 
MOV 
ASL 
JMP 



•STKPTR,v.6 
PRGNUri 

aisR 

RESTART 
SJYPEM 

5,RECD 

S.TYPEM 



•173100, ROMAOD 
PRGNUM,f.O 

JCO 

aPRGTAB(O) 



;SET STACK PTR 



;TYPE MESSAGE 'PRGi= 

: RECEIVE DATA AND PUT 
;IT HERE 



GET FIRST ROM ADDRESS 
GET PROGRAM t 
SHIFT PROGRAM • 
GO TO PROGRAM 



rPROGRAM 0 LOGIC TESTS 
PRQO: MOV tSTKPTR.'/i, 
001172 MOV tRESTARt. RETURN 

;TEST1 TEST flBILlTY TO REFERENCE ROM WITHOUT TIMING OUT 



Tl: 



'lA: 



ERRORl: 



TIB: 



MOV 

MOV 

MOV 

MOV 

TST 

ADO 

CMP 

BITB 

RESET 

SUB 

ADD 

DEC 

BNE 

BR 

CMP 

HLT 

BR 

SCOPE 



ROMACD.XO 

WORDS.^il 

•ERROAl.4 

(0),y.3 
(0) + 

-(0),DUMO 
(05 JO) 
(0)+,(0)+ 

-(O).DUMP 

•2,:<0 

•/.I 

TIA 

TIS 

(6)*-, (6)* 
TIA 



GET ROM ADDRESS 
GET ADDRESS COUNTER 
SET UP TIME OUT VECTOR 
REFERENCE 
ROM 



DELAY 

INCREMENT POINTER 
DECREMENT ADDRESS COUNTER 
BRANCH IF NOT FINISHED 
CO TO SCOPE LOOP 
REPOSITION STACK 
HERE IF ERROR 
LOOP ON ERROR 



EST 0:?1RA-i^ 



GOl 



rE£T2 TEST THAT ROM DfiTA Ch'< BE READ RELIfiB-' 



001302 

0Q130H 
20:3Qfc 



016700 177610 

005067 177560 

06^86^ 177552 

166703 1775'46 

X1H02 

lOHOOO 

0C0766 

000C05 

0H4O67 177532 

001402 

104000 

000772 

021010 

001402 

104000 

000774 

122040 

0014C2 

104000 

000774 

005720 

005301 

001345 

1044C0 



T2: 



176564 



T2fi: 



MOV 
MOV 
MOV 
CLR 
MOV 
ADD 
SUB 
BEQ 

ERR0R2: HLT 
BR 



T2B: 



T2C: 



T2D: 



T2E; 



RESET 

BIC 

BEQ 

HLT 

BR 

CMP 

BEQ 

HLT 

BR 

CMPB 

BEQ 

HLT 

BR 

TST 

DEC 

BNE 

SCOPE 



ROMADD.XC 
UOROS,v.l 

DUMP 

(0),'/.3 

(O)i.DUMP 

DUMP,y.3 

T2B 

T2A 

-(C), DUMP 
T2C 

T2B 

(0),(0) 
T2D 

T2C 

(0)+,-(0) 
T2E 

T2D 
(O)-f 
7.1 
T2A 



GET ROM ADDRESS 
GET ADDRESS COUNTER 
INITIALIZE TIME OUT VECTOF 
INITIALIZE DUMP 
GET DATA 

ADD DATA TO DUMP 
SUBTRACT DATA FROM DATA 
BRANCH IF EQUAL 
DATA ERROR 
LOOP ON ERROR 
DELAY 

CLEAR DUMP BITS 
BRANCH IF EQUAL TO 0 
DATA ERROR 
LOOP ON ERROR 
COMPARE DATA 
BRANCH IF EQUAL 
DATA ERROR 
LOOP ON ERROR 

COMPARE DATA (BYTE OPERATION) 

BRANCH IF EQUAL 

DATA ERROR 

LOOP ON ERROR 

INCREMENT ADDRESS POINTER 

DECREMENT ADDRESS COUNTER 

RETURN IF NOT DONE 



;TEST3 TEST THAT ROM TIMES OJT IF REFERENCED BY OTHER 
;THAN DATI BUS CYCLE 



001310 


012706 


000500 




T3: 


MOV 


001314 


016700 


177476 






MOV 


001320 


016701 


177454 






MOV 


001324 


012767 


001340 


176452 


T3AA: 


MOV 


001332 


010010 






T3A: 


MOV 


001334 


104000 








HLT 


001336 


000775 








BR 


C01340 


012767 


001256 


176436 


T3B: 


nov 


001346 


022626 






T3C: 


CMP 


001350 


005210 






INC 


001352 


104000 








HLT 


001354 


000775 








BR 




012767 


001376 


176420 


T3D: 


MOV 


001364 


022626 








CMP 


001366 


005077 


177424 




T3E: 


CLR 


001372 


lOHOOO 








HLT 


001374 


000774 








BR 


001376 


005720 






T3F: 


TST 


001400 


022626 








CMP 


001402 


005301 








DEC 


001H04 


001347 








Bh£ 


201406 


012737 


C00006 


000004 




MOV 



•STKPTR,-/.6 

ROMADD,%0 

UOROS.^1 

•T3B.A 

•/.0,(0) 

T3fl 
•T3D,4 

(6)+, (6)+ 
(0) 

T3C 

•T3F,4 

(6)*.(6)* 
SROMADD 

T3E 
(0)+ 

(6)-»',(6)* 
Xl 

T3AA 
•6,3t4 



SET STACK PTR 
GET ROM ADDRESS 
GET ADDRESS COUNTER 
SET UP TIME OUT VECTOR 
ATTEMPT TO ALTER DATA 
HERE IF DID NOT TIME OUT 
LOOP ON ERROR 
SET UP TIME OUT VECTOR 
REPOSITION STACK 
ATTEMPT TO ALTER DATA 
HERE IF DID NOT TIME OUT 
LOOP ON ERROR 
SET UP TIME OUT VECTOR 
REPOSITION STACK 
ATTEMPT TO ALTER DATA 
HERE IF DID NOT TIME OUT 
LOOP ON ERROR 
INCREMENT ADDRESS POINTER 
REPOSITION STACK 
DECREMENT ADDRESS COUNTER 
RETURN IF NOT DONE 
RESTORE TIME OUT TRAP 



wui £rir32) OH-w-rt u-.m pea r 



HOI 



Scope 



; SCOPE -j:P 



101 



.M16 
"22 

h: 

H3b 
HMO 
HS2 
H4H 
4% 
450 
452 
45S 
4t>2 

47^ 
474 
500 



00 
00 

8S 

00 

X. 

^: 

00. 

00: 
00: 

00. 

00: 
00: 

00. 
001 
OOJ 

881 

001512 
00151& 

88i^= 

001530 
001534 
001540 
00154E 
001544 

00154b 
001554 
001560 
001562 
001566 
001570 
001572 
001574 
001576 
CO 1600 



001604 
001610 
001614 
001616 
001622 
001626 
001632 
001636 



2706 
6701 

m 

021013 
001004 

022023 
000772 
010067 
004767 
004567 
002616 
011067 
004767 
004567 



}1 

004767 
004567 



11367 
004767 
004567 
002532 
000737 
104400 

012737 
105737 
100375 
013700 
001404 
0(34710 
000240 
000240 
000240 
000167 



012706 
004567 
002516 
016701 
016700 
012702 
105767 
100375 



003500 
17735c 
177364 
177344 



000715 
000710 
000342 

000674 
000672 
000324 

000656 
000654 
000306 

000640 
000636 
000270 



000207 
177564 

000042 



177302 



000500 
000214 

177156 
177170 
000012 
175726 



:ThIS TEST COnPftRES RCPI fiND 11AGE DATA 
iPJNZ TYPES OUT DIFFERENCES 



T4: 



'4B: 

• TV • 



•■4D: 



T4E: 

177566 END: 



DONEl: 



nov 

NOV 
MOV 

nov 

CflP 

BNE 

DEC 

BEQ 

CMP 

BR 

MOV 

iJSR 

JSR 

HIO 

MOV 

JSR 

JSR 

MB 

MOV 

JSR 

JSR 

M12 

MOV 

JSR 

JSR 

MB 

BR 

SCOPE 

MOV 
TSTB 
BPL 
MOV 
BEO 
JSR 
NOP 
NOP 
NOP 
JMP 



•STKPTR,:'.6 

WORDS. -/J 1 

R0nA0o//.0 

IMAGE. ^:3 

iO),(3) 

T40 

•/.I 

THE 

(0)+,(3)* 
T4B 

•/.0.D2BTYP 

7,62A 

SJYPEM 

(0).D2BTYP 

7,0^A 

SJYPEM 

•/.3,D2BTYP 
7, 02 A 
SJYPEM 

(3).D2BTYP 
7,0^A 

sItypeh 

THC 



I207.SITPDBR 
aiTP6SR 

.-4 

ai42,X0 

DONEl 
7,(0) 



SET STACK PTR 
GET I OF UORDS 
GET ROM ADDRESS 
GET IMAGE ADDRESS 
COMPARE DATA 

ALL DATA BEEN COMPARED 

INCREMENT ADDRESS POINTERS 

TYPE 

ROM ADDRESS 
TYPE 

SEPARATOR 
TYPE 

POM DATA 
TYPE 

IMAGE ADDRESS 
TYPE 

SEPARATOR 
TYPE 

IMAGE DATA 
TYPE 
CR/LF 
GO TO THC 

;RING THE BELL 

; RETURN TO DECTAPE MONITOR' 
; RETURN! 



PRGO 

JHIS PROGRAM TYPES OUT ROM DATA 
PRGl: 



PRGIA: 



MOV 
JSR 
H7 
MOV 
MOV 
MOV 
TSTB 
BPL 



ISTKPTR,7.6 
SJYPEM 

UORDS.y.l 

romad6,xo 

•12 

tpcSr 

.-4 



INITIALIZE STACK 
TYPE MESSAGE 
'ROM DATA' 
GET • OF UORDS 
GET STARTING ADDRESS 
GET ADDRESS INDICATOR 
WAIT FOR 
TELEPRINTER FLAG 
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JOl 



CQlb40 
QOlbMM 
00 J 650 
OOlfcSM 
OOlbSb 
001&&2 
OOlbbb 
Q01b72 
OOlbTM 
001702 
001704 
00170b 
001710 
001712 
00171b 
001722 
0Q172M 
00172b 



0l00b7 
00H7b7 
00H5b7 
002532 
0120b7 
00M7b7 
I057b7 
100375 
0:27b7 
005301 
OOIHIO 
005302 
0013b2 
012702 
0045b7 
002532 
000745 
0001b7 



CG0524 
000522 
000154 

00050b 
000504 
I75b72 

0C0D40 I75bb4 



000012 
00010b 



177074 



PRGIB: MOV 
JSR 
JSR 
M8 

PRGIC: MOV 
JSR 
TSTB 
BPL 
MOV 
DEC 
BEO 
DEC 
BNE 
MOV 
JSR 
MB 
BR 

PRGID: JMP 



•'^O.D2BTYP 

7,62fl 

S.TYPEM 

(0j+,D2BTYP 
7.O2A 
T^CSR 
.-4 

•' ,TPDBR 
•/.I 

PRGIO 
•/.2 

PRGIC 
112, -/.d 
S.T^PEM 

PRGIB 
PRMTRS 



001732 


012706 


000500 




00173b 


012737 


002024 


000004 


001744 


005067 


176026 




001750 


012767 


002002 


176102 


00175b 


012767 


000340 


176076 


00l7b4 


012767 


000100 


175566 


001772 


016700 


177020 




00177b 


005710 






002000 


000776 






002002 


004567 


000140 




002006 


000000 






002010 


016700 


177772 




002014 


004567 


000010 




002020 


002S32 






002022 


000002 






002024 


104000 






002026 


000777 







;THIS PROGRflM CYCLES A SINGLE 
THE ADDRESS TYPE NEW ADDRESS 



^RG2: 



PRG2A: 
PRG26: 



PRG2C: 



MOV 
NOV 
CLR 
MOV 
MOV 
MOV 
MOV 
TST 
BR 
JSR 
0 

MOV 
JSR 

m 

RTI 
HLT 
BR 



•STKPTR.JCb 
•PRG2C,dl4 
PSU 

•PRG2fl,TKINTA 
•340,T<^INTP 

•iooItkcsr 

R0MAD0,V.0 

(0) 

.-2 

5.REC0 

PRG2B.5<C 
SJYPfeM 



S.ET ADDRESS 

AND TYPE IT 

TYPE 

CR/LF 

TYPE 

DATA 

UAIT FOR 

TELEPRINTER FLAG 
TYPE SPACE 
ALL DATA TYPED 
GO TO FINISH 

RETURN TO PRGIB 

GET ADDRESS INDICATOR 

TYPE 

CR/LF 

RETURN TO PRGIB 
GO GET NEXT TEST 



ADDRESS (ADDRESS NUST BE EVEN) TO CHANGE 
ON THE TTY. 

INITIALIZE STACK POINTER 
LOAD TRAP ERROR VECTOR 
CLEAR PROCESSOR STATUS 
LOAD KEYBOARD INTERRUPT VECTOR 
LOAD KEYBOARD PRIORITY 
SET INTERRUPT ENABLE BIT 
GET RON ADDRESS 
READ RON ADDRESS 
LOOP 

GO GET ADDRESS & 
PUT IT HERE 

TYPE 
CR/LF 

EXIT KEYBOARD INTERRUPT SERVICE 
ERROR! DID YOU TYPE AN ODD ADDRESS? 
SIT HERE UNTIL CORRECT ADDRESS IS TYPED IN 



002030 
002032 
002034 
002040 
002044 
002052 
002054 
002056 
002062 
002064 
002066 
002074 
00207b 
002102 
002104 



010026 
012500 
112067 
112067 
126767 
001005 
014600 
105767 
100375 
000205 
126727 
001015 
105767 
100375 
012767 



176752 
17b744 
176740 



175502 

176716 
175462 
000215 



176740 

000045 
175454 



TYPEM: MOV 
MOV 
MOVB 

TYPEMA: MOVB 
CNPB 
BNE 

MOV 
TSTB 
BPL 
RTS 

TYPEMB: CMPB 
BNE 
TSTB 
BPL 
MOV 



■/0,(b) + 

(5H,/.0 

(0)+,TERM 

(0)'»-,CHAR 

CHAR. TERN 

TYPEte 

-ib)'/.Q 

TPCSft 

.-4 

5 

CHAR.I'Z 

TYPEftC 

TPCSR 

.-4 

•215,TPDBR 



;SAVE REGISTER 0 

; PLACE MESSAGE ADDRESS IN RO 

GET TERMINATOR CHARACTER 
;GET NEXT CHARACTER 
;tilAS NEXT CHARACTER THE TERM 
; CHARACTER 

RESTORE RO 



;AN0 EXIT 

;UAS CHARACTER X 

;TEST TELEPRINTER FLAG 

;AND UAIT FOR DONE 

;L0AD TELEPRINTER UITH CAR. RET 



002112 

i6 

26 
30 
3M 
36 
4H 
4b 
50 
5H 
56 
6H 
72 
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KOI 



002 
002 
002 
002 
002 
002 
002 
002 
002. 
002 
002 

002200 
002202 
00220M 
002210 
002212 
002214 
002222 
002224 
002226 
002230 
002234 



002236 
002244 
0022% 
0022S4 
002256 
002264 
002266 
002272 
002274 
002300 
002304 
002306 
002310 
002312 
002314 
002316 
002322 
002326 
002334 
002336 
002340 
002344 
0023% 
002352 
002356 
002362 
U02364 
002366 



105767 

m 

000744 
105767 
100375 
016767 
000735 
005015 
105767 
100375 
116767 
016767 
126727 
001005 
005725 
105767 
100375 
000205 
042767 
006315 
006315 
006315 
056715 
000745 



032767 
001023 
032767 
001007 
026767 
001403 
005267 
000410 
005067 
011667 
000002 
000040 
000000 
001066 
005726 

036727 
001401 
000002 
004567 
002476 
011667 
004767 
005767 
100001 
000000 
000002 



175446 
000212 
175430 
176646 

175404 

175400 
176620 
176612 

175354 

177770 

176554 

040000 

004000 

000026 

000016 

000010 
000006 



175454 
177764 
175236 



177464 

000016 
000014 
175206 



TYPEfIC: 



RECO: 
RECDA: 



175440 



175422 



176624 
175374 
0Q0215 



176566 RECDB: 



TSTB 

BR 

TSTB 
BPL 
MOV 
BR 
CLR 
TSTB 
BPL 
flOVB 
MOV 
CMPB 
6NE 
TST 
TSTB 
BPL 
RTS 
BIC 
ASL 
flSL 
ASL 
BIS 
BR 

; SCOPE OR/RND 



175324 
175314 
000022 



SCOPEC: 



SCOPEG: 



ICOUNT: 
SCOPEF: 
RETURN: 
SCOPES: 



TPCSR 
.-4 

•212, TPDBR 
TYPEMfl 
TPCSR 
.-4 

CHfiR. TPDBR 

TYPEftfi 

(5) 

TKCSR 

.-4 

TKDBR.CHflR 

CHfiR,tPDBR 

CHAR!i215 

RECDB 

(5) + 

TPCSR 

.-4 

5 

•177770, CHAR 

(5) 

(5) 

(5) 

CHflR.(5} 
RECOA 
ITERATION LOOP 



FOR 



020000 ERROR: 



BIT 

BNE 

BIT 

BNE 

CMP 

BEQ 

INC 

BR 

CLR 

NOV 

RTI 

40 

0 

RESTART 

TST(6)+ 

NOV 

JHP 

BIT 

BEQ 

RTI 

JSR 

ERRORN 

MOV 

JSR 

TST 

BPL 

HALT 

RTI 



•40000. 5R 
SCOPEB 
•4000.SR 
SCOPEd 

SCOPEF, ICOUNT 

SCOPEG 

SCOPEF 

SCOPEB 

SCOPEF 

ax6, RETURN 



(6)+,PSU 
SRET&RN 
SR. ^20000 
.+4 

XS.TYPEM 

(6).D2BTYP 
7.0SA 

sk 

.♦4 



^EET TELEPRINTER FLPG 

LoSd^^JlEpRin^Jr^UITH LINE FEED 

GET NEXT CHARACTER 

TEST TELEPRIf.TER FuAG 

AND WAIT FOR DONE 

LOAD TELEPRINTER BUFFER 

AND GET NEXT CHARACTER 

CLEAR OUT OLD DATA 

TEST KEYBOARD FLAG 

AND MAIT FOR CHARACTER 

GET CHARACTER 

ECHO CHARACTER 

MAS CHARACTER CARRIAGE RETURN 
INCREMENT RETURN ADDRESS 



AND EXIT 

STRIP AUAY ALL BUT 3 LSS 

ROTATE 

PREVIOUS 

DATA 

AND INSERT CHARACTER 
GET NEXT CHARACTER 
EACH TEST 100. TIMES 

TEST SR FOR SCOPE 
YES SCOPE 

TEST FOR ITERATION 

INHIBIT ITERATION 

ITERATION COMPLETE 

ITERATION COMPLETE GO TO SCOPEG 

INCREMENT ITERATION COUNT 

GO TO SCOPEB 

CLEAR ITERATION COUNT 

GET ADDRESS OF NEXT TEST 

EXIT 

CONTAINS SUBTEST ITERATION COUNT 
POP PC 

RESTORE CONDITION CODES 

INHIBIT PRINTOUT' 

BRANCH IF ERROR PRINT OUT 

RETURN TO TEST 

TYPE ERROR MESSAGE 

'PC* ' 

TYPE PROGRAM COUNTER 

HALT ON ERROR' 

YES HALT 
RETURN TO TEST 
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002370 


000000 




D2BTYP: 0 


002372 


016746 


175166 


02fl: MOV 


002376 


010246 




nov 


002"00 


010146 




nov 


002M02 


010046 




nov 


002M0H 


016700 


177760 


flOV 


002410 


012701 


000006 


nov 


002414 


005002 




CLR 


00241b 


006100 




ROL 


002420 


006102 




ROL 


002422 


062702 


000260 


OSAA: ADD 


00242& 


105767 


175132 


TSTB 


Q02432 


10Q37S 




BPL 


002434 


010267 


175126 


nov 


002440 


005002 




CLR 


1702442 


006100 




ROL 


002444 


006102 




ROL 


002446 


006100 




ROL 


002450 


006102 




ROL 


002452 


006100 




ROL 


002454 


006102 




ROL 


002456 


005301 




DEC 


002460 


001360 




BNE 


002462 


012600 




nov 


002464 


012601 




nov 


002466 


012602 




nov 


002470 


012667 


175070 


nov 


202474 


000207 




RTS 



LOl 



TPCSR,-(6) 

X2,-(6) 

•/.I. -(b) 

•/.0.-(6) 

D26TYP,y.O 

16, XI 

•/.2 

•/.o 

•/.2 

•260.-/2 

TPCSft 

.-4 

X2,TP0BR 
•/.2 

•/.o 
y.2 
xo 

V.2 

y.Q 

V.Z 

y.i 

02AA 

(6)+,X0 

(6)i,Xl 

(6)+,%2 

(6)+,TPCSR 

7 



SAVE TPCSR 
SAVE R2 
SAVE Rl 
5PVE RQ 

GET DfiTfl TO BE TYPED 
GET COUNTER 

CLEAR WORKING REGISTER 
nov FIR5T BIT (nSB) INTO 
R2 

FORn ASCII CODE 

TEST TELEPRINTER 

FLAG AND MAIT UNTIL DONE 

LOAD TELEPRINTER BUFFER 

CLEAR WORKING REGISTER 

ROTATE THE 

NEXT 

OCTAL CHARACTER 
INTO 

REGISTER 
TWO 

DECRENENT COUNTER 
GO TO 02AA IF NOT 0 
FINISHED. RESTORE REGISTERS 



AND TPCSR 
AND EXIT 



MOl 



(DzrtRM.cr^e 



00247b 

002504 

00250& 

002S14 

002S16 

002524 

002S32 

002535 

002542 

002550 

002556 

002564 

002572 

002600 

002606 

002614 

002616 

002621 

002624 
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: ASCII MESSRCES 
022500 050040 036503 £RR0RK: .ASCII 'i'/. PC= 9' 
040040 

022500 05U20 021507 Hb: 
040075 

ri7: 



022500 
040504 
022500 
100 
040440 



047522 020115 

040524 040045 
100 

051045 046517 

042104 042522 

051523 044457 040515 

042507 040440 042104 

042522 051523 051040 

046517 042040 052101 

025101 046511 043501 

020105 040504 040524 
040045 

027500 100 
100 040040 
025100 100 



f18; 
09: 



nio 
nil 
m2 



.ASCII 'a'/.PRGt=a' 



.ASCII 'mW DATAxa* 



.ASCII 
.ASCII 



.ASCII 
.ASCII 
.ASCII 



'3'/.a' 

'axROn ADDRESS/ inAGE ADDRESS ROn OATAtltlAGE OATA'/S' 



'3/3' 
'3 3' 
'3«3' 
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00377b 


.=377b 


00377b 


000000 


.UORO 


•DflTfl CUT INTO 

■ 1 n wu ■ All 1 w 


nnMnnn 


n 1 n7n? 

UiUr UC 


010702 

WaKJi UC 




UUU >9 A 


000451 


OOMOOH 


177462 


1774b2 


004006 


000005 


000005 


nrmn i n 


n I n7n? 

U 1 U r UC 


□10702 

U A U r UC 




UUU ■ 


000445 

UUU 1 1 W 


nrmn i ^ 


177406 

X r r lUO 


177406 

Aft ■ WW 


U J^UID 


UUUUU3 


00QQQ5 

uuwww^ 


ooMoao 


010702 


010702 


00402£ 


000417 


000417 


nnMnPM 

UU lUC 1 


All Oil 


177344 

At f U • 1 


nnunpfc 

UU^UCD 


nnnnn^ 

UUUUU3 


000005 

uuuuu^ 


nnMnm 

UU^UJU 


nnMnni 

UU lUUO 


004003 

UU lUUU 


nn^nv 

UU~U«3C 


1 nnnnn 

lUUUUU 


100000 

A UUUUU 


nnMnx 

UU lUO 1 


nPMnno 

UC lUUU 


024000 


nn4n% 

UU lUwO 


01070P 

UAUr UC 


010702 

W A W * Wk 


nnMHMn 

uu~u~u 


nnnmn 

UuU~iU 


000410 

UUU I A u 


nnMnii? 

uunu^c 


A 1 C9C 1 


172524 

A f C^C > 


OOMOHH 


060003 


oboooa 


0040% 


060011 


ObOOU 


nnMnc;o 

UU lU^U 


nnopnn 

uuucuu 


000200 

UUUkUU 


nnwn^P 

UU iU9C 


1 nnnnn 

lUUUUU 


100000 

A UUUUU 


nnMn^4 

lUS 1 


nin7n? 

UAUr UC 


010702 

U A u r uw 


nnnnsti 


000423 

UUU i&w 


000423 

UUU IwW 


noMnfen 

UU >UuU 


176716 

A 1 of 1 W 


176716 


004062 

UU »UOb 


000005 

uuuuu^ 


000005 

wwww w w 




01 0200 

U AUCUU 


010200 

W A W W 


UU lUPO 


DD57P0 

UU9r CU 


005720 

UUWr feW 


nnMn7n 

UU lUr U 


DlPODl 

Ul cuux 


012001 

U AbUU* 


nnMn7P 

UU >U f c 


0053 1 1 

UU^U A A 


005311 

WW«Jw A A 


004074 

UU lUf • 


005720 

UUW bU 


005720 


00407b 


U12041 


012041 


004100 


031011 


031011 




UU 1 f < o 


00 177b 

WW A < • w 


004104 


005720 


005720 


00410b 


031041 


031041 


UU • A AU 


□□140b 

UU A tUD 


Qomob 

WWA 'WW 


00411? 

UU > A 


000112 

UUU A A c 


000112 

www A A^ 


004114 


173100 


173100 


UU 1 AAV 


000340 

UUUU lU 


0003H0 

WWWW 'W 


004120 


010702 


010702 


004122 


000401 


000401 


004124 


1774S0 


177H50 


00412b 


000005 


000005 


004130 


010200 


010200 


304132 


005720 


005720 
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012031 

0CSl3b OiSril r723C 

oosma oHOHi 

004i»« 032711 122200 

004150 001775 

:0M152 1007S7 

OOSiSM XS007 

00S156 000000 

X416C 173110 

30Slb2 0003H0 

OOHISM 173220 

00416^ 000340 

004170 173154 

004172 000340 

00417M 173120 

004176 000340 



Ci20Cl 

212711. 177CQ0 
011041 

032711,100200 
001775 
100757 
005007 

COOOOO 
173110 
000340 
173220 
000340 
173154 
00034C 
173120 
000340 



B02 



300001 



.END 



TEST CZ^H'A 

oznRAA.cne 



IhCVU 27(732) 04-.N0V-7b 12:09 PAGE lb 
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COS 



DOfCl 

I ounp 

D2BTYP 
DC 

£m» 

ERRORM 

ERRORl 

ERR0R2 

H.T = 

ICOUKT 

irKGE 

LAST 

fin 
ni2 
nb 

H7 

»« 

C2A 

02AA 

PRGNUI 

PRGTAB 

PRGO 

PRGl 

PRGIA 

PRCIB 

PRGIC 

PRGIO 

PRG2 

PRG2A 

PRG2B 

PRG2C 

PRffTRS 

PSM = 

RECO 

RECDA 

RECOe 

mESTAF 

RETURh 

Ronpoo 

SCOPE = 

SCOPEB 

SCOPEC 

SCOPEF 

SCOPEC 

SR = 

5RT 

STARTl 
START3 
STKPTRs 
TERfl 
TKCSR = 
'KDOR ' 



OClOlO 
OOlbOO 
001004 
002370 
001S% 
00232b 
00247b 
001172 
001240 
10400C 
0023Gb 
001002 
OQlOOb 
002blb 
002b21 
002b24 
002S0b 
00251b 
002532 
002535 
002372 
002422 
00105b 
001020 
OOUOb 
001b04 
001b22 
001b40 
OOlbSb 
D0l72b 
g0l732 
002002 
00200b 
002024 
0 0102b 
i7777b 
00214b 
002150 
002214 
OOlObb 
002312 
00101b 
104400 
002314 
00223b 
002310 
002274 
177570 
001014 
000200 
000210 



lOU 
177560 
177562 
OOOObO 



I73i 

312 

I7i» 

28'9» 

308t 

14b 

433 

203 

2301 

1511 

41b 

1701 

1721 

292 

4871 

300 

IBS 

323 

IBS 

477t 

290 

4511 

1B1« 

1771 

177 

178 

3251 

3301 

3341 

340 

179 

354 

3blt 

352 

lb3 

1571 

IBb 

3941 

399 

IbS 

19B» 

17bt 

1521 

413 

148 

41b 

415 

15Bt 

1751 

lb3t 

IbSl 

1591 

1741 

1531 

I54t 

IbOi 



373# 
3l7t 
20b* 
293» 

4291 
4701 
215t 

21b 

423t 

2B2 

48bt 

4881 
472 » 
4741 
2% 

294 

4b3 

1871 

194 

1971 

3211 

34b 

342 

3471 

3511 

3bQl 

3b2 

3bbt 

IBOt 

353* 

3b0 

409 

4041 

183 

421* 

191* 

218 

419 

4121 

418* 

417 

162 



160 

372* 

35b* 

3% 

354* 



374 

210* 
297* 



230 



304 
296 
192 
317 



347 

427* 

393t 



380 

225* 
301* 



235 



333 
302 



391 

227* 
330* 



239 



39b* 397 



228 



243 



233* 
434* 



258 



39B H04« 4Se 
4411 44b 

2b3 2b8 3bb 



345 
331 



3b4 
335 



47b« 
435 



442t 



1911 


198 


425 




4251 


428 






201 


222 


254 


2b7* 


246 


275 


30b 




42bl 








420* 


4241 






420i 








412 


414 


429 


43b 


197 


253 


279 


321 


374 








394 









325 357 



002 



'PCSP = 
'POOR = 
TYPEn 

rmm 

Tl 

Tlfl 

'IB 

T2 

T2fi 

T29 

T2C 

'20 

T2E 

T3 

T3fi 

•39 

T3C 

T3E 
T3F 

THB 

no 

WORDS 



0C0Qb2 

002030 
0Q2CH0 

ooaobb 

0021X 

001120 
00113b 
X120C 
001202 
001220 
00124H 
001260 
001270 
X1300 
001310 
001332 
00132H 
001340 
0013S0 
001358 
001366 
001376 
001416 
001436 
001442 
001452 
Q01544 
XIOOO 
004202 
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l&It 


355* 














1551 


30S 


32' 


33b 


3^7 


j92 


385 
322 


38S 


15bt 


308* 


338* 


384* 


387# 


3S1» 


45H# 




168 


9A « 

29^ 


9A^ 

2% 


90A 

299 


3UJ 


99** 

33c 


3731 




9A9 

3S2 












375 


3801 














381 


38St 














cOlt 
















2DMt 


213 


21/ 












clH 


218t 














ccSt 
















S25t 


231 


2i7 












2cS 


232t 


236 












cJH 


2371 


^Lirt 
2HU 












c38 


2Hlt 


c4i 














2H5t 














2S3t 
















2571 


25S 














25Dt 


273 














2S6 


2DUt 














2b2t 


2dH 














2dQ 


265 1 














2b7l 


2bS 














2S5 


2701 






























2831 


288 














2851 


305 














284 


28SI 














286 


3061 














169t 


202 


223 


255 


280 


:24 






145t 


162t 


1641 


166t 


168t 


310 


328 


337 


390 


3% 


402 


430 


437 


453 


4891 





4G: 

344 



-♦42 
3o3 



359 



367 



378 



383 



386 
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hDO 


c9b 


ail 

cll 


aa^ 
cc/ 


hSL 


lU 


Line 
405 


unc 
4Cb 


KQ 


183 


aao 
cca 


aau 
c34 


BIC 


c3j 






BIS 








BIT 


Li f 9 


ill u 

414 


uao 
429 


B T TB 

Bnt 


IS 

eld 


au7 


a^a 


BPL 


310 


aae 
3cB 


aa*? 

Mf 


on 




ai 7 
Cl7 


aa 1 
c3I 




3% 


4OT 


U 1 Q 

Mia 




tat 
181 


aac 
cc5 


ac7 
cb7 


tnr 


c07 


at c 
clb 


aa7 




Oil t 

cHl 


a^u 

37H 


aon 
3oU 


JtC 


at 3 
clc 


auc 
c**b 


ara 
eft 


tn» 


Idl 






HHLT 


t 

1H5 


uaa 
4J8 




inc 


CDC 


Hid 




TMD 

JHr 
▼CD 


1 13 

1d3 


tec 
1p5 






t QC 

18b 


loo 




335 


3HH 


acn 
3b0 


HOV 


180 


tot 
lal 


t oa 
lac 






act. 
c5b 


ac7 




at t 
311 


aa 1 
3cl 


aau 




ac.3 
Jbc 


a^n 


a^i 








ucu 
Tb" 


JO 


37c 


a*7a 

373 


aoc 
3ab 




at u 


at c 
Jib 


Jlp 


DCCTT 


cUa 


aaa 
cJc 




H ( 1 




ucn 


•♦bp 


365 


uaa 

*TCC 


uat 
4JI 


DTC 


aTo 


una 


UCD 
MP9 


CI Ifi 

bus 


am 
cIU 


aao 

CCD 






tea 
Ibc 








1 oa 
18c 


anc 
cub 


auc 
cHb 


TCTO 


ano 


aa7 


aac 
Job 




138 
5c3 








c 


M7M 


.Ere 






.LIST 


137 


145 




.NLIST 


13b 


145 




.REH 


1 






• REPT 


145 






•TITLE 


135 
490 






.UORO 
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238 242 28& 



284 


342 


375 


381 


378 


333 


38b 


390 


23b 


240 


244 


259 


353 


393 


420 


448 


2bl 


2bb 


271 


283 


398 








285 


339 


341 


4b2 



317 


347 


428 




290 


291 


294 


295 


3b3 


432 


435 




197 


198 


201 


202 


2b0 


2b5 


274 


279 


325 


32b 


330 


334 


37b 


384 


387 


391 


4b4 


4b5 


4bb 


4b7 


457 


458 


459 


4bO 


439 








270 


358 


400 


42b 


377 


382 


385 


389 


47b 


477 


46b 


487 



ERRORS DETECTED: 0 

DEFAULT GLOePLS GCrCRATEO: 0 

*, NOU. SEO/SOL/CRF/NL: TOC/PAGNUnsOZMRAA. CriB 
RitHTItC: 1 3 .7 SECONDS 
RUN-TIHE RATIO: 2b/5s4.b 
CORE USED: bK (11 PA(^S) 



EOS 



3^0 417 430 



399 


413 


415 


4b3 


395 


402 


437 


453 


2b4 


2b9 


288 


305 


455 








287 


4ib 







34b 



359 



3&7 



388 



298 


299 


302 


303 


313 


322 


331 


332 


203 


204 


222 


223 


224 


22b 


253 


254 


280 


281 


282 


289 


293 


297 


301 


308 


338 


343 


351 


352 


354 


355 


35b 


357 


397 


421 


427 


434 


442 


443 


444 


tfUC 



4bl 



43& 

394 401 452 
488 



